home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d949.lha
/
BBBBS
/
BBBBS65.lha
/
rexx
/
ToggleNoise.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1993-07-24
|
362b
|
19 lines
/* $VER: ToggleNoise.rexx 6.1 © 1993 Richard Lee Stockton (24.7.93) */
x=GETCLIP('BBS_NOISE')
IF x='OFF' THEN
DO
CALL SETCLIP('BBS_NOISE')
temp='BBBBS sounds and voice are ON.'
END
ELSE
DO
CALL SETCLIP('BBS_NOISE','OFF')
temp='BBBBS sounds and voice are OFF.'
END
IF ADDRESS()='BAUD' THEN MSG temp
ELSE SAY temp
/* ToggleNoise.rexx */